home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / writeoffer < prev    next >
Text File  |  2007-02-28  |  317b  |  12 lines
  1. 0010 DIM MEAT$ OF 30
  2. 0020 OPEN FILE 3,"@0:OFFER",WRITE
  3. 0030 READ MEAT$,PRICE
  4. 0040 WHILE NOT EOD DO
  5. 0050 WRITE FILE 3: MEAT$,PRICE
  6. 0060 READ MEAT$,PRICE
  7. 0070 ENDWHILE 
  8. 0080 CLOSE
  9. 0090 //
  10. 0100 DATA "ROAST OF VEAL",1.59,"ROLLED BEEF",1.79,"CURED PORK",1.99
  11. 0110 DATA "RIBROAST",1.49,"METTWURST",1.39,"CHOPPED PORK",1.69
  12.